Using Font Awesome integration

nodes <- data.frame(id = 1:7,
                    group = c("A", "A", "A","B","B","B","B")
                    )

edges <- data.frame(
  from = c(1,2,2,2,3,3),
  to = c(2,3,4,5,6,7)
)

figure <- visNetwork(nodes, edges, width = "100%") %>%
  visGroups(groupname = "A", shape = "icon", 
            icon = list(code = "f0c0", size = 75)) %>% 
  visGroups(groupname = "B", shape = "icon", 
            icon = list(code = "f007", color = "red")) %>%
  visEdges(arrows = "from") %>% 
  visHierarchicalLayout() %>% 
  addFontAwesome()

htmlwidgets::saveWidget(figure, file = "figure.html", selfcontained = T)

#htmltools::includeHTML("figure.html")
#frameableWidget(figure, renderCallback = NULL)
#figure

htmlwidgets::saveWidget(
widgetframe::frameableWidget(figure),'hierarchical.html')
htmltools::includeHTML("hierarchical.html")

Iris dataset

library(rpart)
library(sparkline)

## Warning: package 'sparkline' was built under R version 4.0.4

res <- rpart(Species~., data=iris)
figure <- visTree(res, main = "Iris classification Tree", width = "100%")


htmlwidgets::saveWidget(
widgetframe::frameableWidget(figure),'classification.html')
htmltools::includeHTML("classification.html")

Les miserables example

nodes <- jsonlite::fromJSON("https://raw.githubusercontent.com/datastorm-open/datastorm-open.github.io/master/visNetwork/data/nodes_miserables.json")

edges <- jsonlite::fromJSON("https://raw.githubusercontent.com/datastorm-open/datastorm-open.github.io/master/visNetwork/data/edges_miserables.json")


figure <- visNetwork(nodes, edges, height = "700px", width = "100%") %>%
  visOptions(selectedBy = "group", 
             highlightNearest = TRUE, 
             nodesIdSelection = TRUE) %>%
  visPhysics(stabilization = FALSE)

htmlwidgets::saveWidget(
widgetframe::frameableWidget(figure),'lesmis.html')
htmltools::includeHTML("lesmis.html")

Example of defining coordinates

nnodes <- 100
nnedges <- 200

nodes <- data.frame(id = 1:nnodes)
edges <- data.frame(from = sample(1:nnodes, nnedges, replace = T),
                    to = sample(1:nnodes, nnedges, replace = T))

figure <- visNetwork(nodes, edges, height = "500px") %>%
  visIgraphLayout(layout = "layout_in_circle") %>%
  visNodes(size = 10) %>%
  visOptions(highlightNearest = list(enabled = T, hover = T), 
             nodesIdSelection = T)


htmlwidgets::saveWidget(
widgetframe::frameableWidget(figure),'circle.html')
htmltools::includeHTML("circle.html")